1 X=16:Y=1:CLS:'*** OISAC 2 *** KREATOR ***
2 FOR F=1TO3:PRINT CSR15"+-+-+";CHR$(13);
3 PRINT CSR15 CHR$(124);" ";CHR$(124);" "CHR$(124);CHR$(13);:NEXT
5 PRINT CSR15"+-+-+-";CHR$(11);
6 LOCATE 15,1:PRINT CHR$(124);
7 'Gestion clavier
10 K=ASC(INPUT$(1))
20 IF K=28;X=X+1:PRINT CHR$(28);
30 IF K=29;X=X-1:PRINT CHR$(29);
40 IF K=30;Y=Y-1:PRINT CHR$(30);
50 IF K=31;Y=Y+1:PRINT CHR$(31);
55 IF K=13ORK=8THEN 100
60 IF K=81THEN 200
70 IF K=78THEN 1
80 PRINT CHR$(0);:GOTO 10
90 'Gestion de l'affichage
100 R=X+32*Y:IF K=13;POKER,135 ELSE POKE R,32
150 PRINT CHR$(0);:GOTO 10
160 'Calcul du code du caractére
200 CO=32:RESTORE240
210 FOR F=1TO6
220 READ A,B
230 IF PEEK A=135;CO=CO+B
235 NEXT
240 DATA 48,1,50,2,112,4,114,8,176,16,178,64
270 LOCATE1,0:PRINT "CODE";CO;"[";CHR$(CO);"]";
280 X=16:Y=1:GOTO 6